base.path <-"/Users/mattwilliamson/Google Drive/My Drive/TEACHING/Intro_Spatial_Data_R/Data/2021/session28/"#sets the path to the root directorypres.abs <-st_read(paste0(base.path, "presenceabsence.shp"), quiet =TRUE) #read the points with presence absence data## OGR data source with driver: ESRI Shapefile ## Source: "/Users/matthewwilliamson/Downloads/session28/presenceabsence.shp", layer: "presenceabsence"## with 100 features## It has 1 fieldspred.files <-list.files(base.path,pattern='grd$', full.names=TRUE) #get the bioclim datapred.stack <-rast(pred.files) #read into a RasterStacknames(pred.stack) <-c("MeanAnnTemp", "TotalPrecip", "PrecipWetQuarter", "PrecipDryQuarter", "MinTempCold", "TempRange")plot(pred.stack)